
**APPENDIX TABLE 8: Individual Outcome Switch Other Interactions**

**INDIVIDUAL AGGREATES 1**
*Diff in diff*

use "$data/merge_bl_fu", clear

gen A_EDT_elig=(A_EDT==1 & d_lleligible==1)
gen A_EDT_no_elig=(A_EDT==1 & d_lleligible==0)
gen nobt_ne_nolw = EDT_treat==0 & d_lleligible==0 & L_ttreat==0

gen A_EDT_elig_edu= A_EDT_elig* education
gen A_EDT_no_elig_edu= A_EDT_no_elig* education
gen nobt_ne_nolw_edu= nobt_ne_nolw*education
gen EDT_edu=EDT_treat*education

gen A_EDT_elig_land= A_EDT_elig* land
gen A_EDT_no_elig_land= A_EDT_no_elig* land
gen nobt_ne_nolw_land=nobt_ne_nolw*land
gen EDT_land=EDT_treat*land

gen A_EDT_elig_num= A_EDT_elig* num_memory_f8
gen A_EDT_no_elig_num= A_EDT_no_elig* num_memory_f8
gen nobt_ne_nolw_num=nobt_ne_nolw*num_memory_f8
gen EDT_num=EDT_treat* num_memory_f8

gen A_EDT_elig_risk= A_EDT_elig* risk_aversion_gen
gen A_EDT_no_elig_risk= A_EDT_no_elig* risk_aversion_gen
gen nobt_ne_nolw_risk=nobt_ne_nolw*risk_aversion_gen
gen EDT_risk=EDT_treat* risk_aversion_gen

gen A_EDT_elig_fem= A_EDT_elig* female
gen A_EDT_no_elig_fem= A_EDT_no_elig* female
gen nobt_ne_nolw_fem=nobt_ne_nolw*female
gen EDT_female= EDT_treat*female

local xvars "EDT_treat EDT_female EDT_edu EDT_land EDT_num EDT_risk education  land num_memory_f8 risk_aversion_gen female bl_bus_owner d_lleligible fu_dummy*"
local yvars " inc_asset_aggregate3 hh_decision_pca outlook_life_aggregate "
est clear
local j =1
foreach y in `yvars' {
	reg `y'_fu `y'_bl `xvars' if ( fu_dummy7==0 & post==0), cl(co_code1)
	estimates store `y'
	test EDT_treat + EDT_female=0
	estadd scalar p_diff1 = r(p)
	sum `y'_bl if (fu_dummy7==0  & post==0 & EDT_treat==0 & female==0)
	estadd scalar mean_y=r(mean)
	local j = `j'+1
}
estout * using "$out/OA-TableA8-PanelA-Pt1.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) starlevels(* 0.10 ** 0.05 *** 0.01) ///
	stats(mean_y N r2 p_diff1, fmt(2 0 2 2 2 2 2 2 2 ) ///
	labels("mean dependent variable" "N.obs" "R-Sq" "p1")) replace
estimates clear

local xvars "A_EDT_elig A_EDT_elig_fem A_EDT_no_elig A_EDT_no_elig_fem B_LL B_female C_EDT_LL C_female nobt_ne_nolw nobt_ne_nolw_fem A_EDT_elig_edu A_EDT_no_elig_edu nobt_ne_nolw_edu B_education C_education A_EDT_elig_land A_EDT_no_elig_land nobt_ne_nolw_land B_land C_land A_EDT_elig_num A_EDT_no_elig_num  nobt_ne_nolw_num B_numeracy   C_numeracy A_EDT_elig_risk A_EDT_no_elig_risk nobt_ne_nolw_risk B_risk C_risk education  land num_memory_f8 risk_aversion_gen female bl_bus_owner fu_dummy*"
local yvars " inc_asset_aggregate3 hh_decision_pca outlook_life_aggregate "
est clear
local j =1
foreach y in `yvars' {
	reg `y'_fu `y'_bl `xvars' if ( fu_dummy7==0 & post==0), cl(co_code1)
	estimates store `y'
	test A_EDT_elig =B_LL
	estadd scalar p_diff1 = r(p)
	test A_EDT_elig =C_EDT_LL
	estadd scalar p_diff2 = r(p)
	test C_EDT_LL =B_LL
	estadd scalar p_diff3 = r(p)
	test A_EDT_no_elig =nobt_ne_nolw
	estadd scalar p_diff4 = r(p)
	test A_EDT_elig + A_EDT_elig_fem=0
	estadd scalar p_diff5 = r(p)
	test A_EDT_no_elig + A_EDT_no_elig_fem=0
	estadd scalar p_diff6 = r(p)
	test B_LL +B_female =0
	estadd scalar p_diff7 = r(p)
	test C_EDT_LL +C_female =0
	estadd scalar p_diff8 = r(p)
	test nobt_ne_nolw + nobt_ne_nolw_fem=0
	estadd scalar p_diff9= r(p)
	sum `y'_bl if (fu_dummy7==0  & post==0 & EDT_treat==0 & L_ttreat ==0 & d_lleligible==1)
	estadd scalar mean_y=r(mean)
	local j = `j'+1
}
estout * using "$out/OA-TableA8-PanelB-Pt1.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) starlevels(* 0.10 ** 0.05 *** 0.01) ///
	stats(mean_y N r2 p_diff1 p_diff2 p_diff3 p_diff4 p_diff5 p_diff6 p_diff7 p_diff8 p_diff9, fmt(2 0 2 2 2 2 2 2 2 ) ///
	labels("mean dependent variable" "N.obs" "R-Sq" "p1" "p2" "p3" "p4" "p5" "p6" "p7" "p8" "p9")) replace
estimates clear

**INDIVIDUAL AGGREGATES 2**

*1 diff*
local xvars "EDT_treat EDT_female EDT_edu EDT_land EDT_num EDT_risk education  land num_memory_f8 risk_aversion_gen female bl_bus_owner d_lleligible fu_dummy*"
local yvars " bus_literacy_aggregate2_fu co_outcomes_aggregate_fu" 
est clear
local j =1
foreach y in `yvars' {
	reg `y' `xvars' if ( fu_dummy7==0 & post==0), cl(co_code1)
	estimates store `y'
	test EDT_treat + EDT_female=0
	estadd scalar p_diff1 = r(p)	
	sum `y' if (fu_dummy7==0  & post==0 & EDT_treat==0 & female==0)
	estadd scalar mean_y=r(mean)
	local j = `j'+1
}
estout * using "$out/OA-TableA8-PanelA-Pt2.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) starlevels(* 0.10 ** 0.05 *** 0.01) ///
	stats(mean_y N r2 p_diff1, fmt(2 0 2 2 2 2 2 2 2 ) ///
	labels("mean dependent variable" "N.obs" "R-Sq" "p1")) replace
estimates clear

local xvars "A_EDT_elig A_EDT_elig_fem A_EDT_no_elig A_EDT_no_elig_fem B_LL B_female C_EDT_LL C_female nobt_ne_nolw nobt_ne_nolw_fem A_EDT_elig_edu A_EDT_no_elig_edu nobt_ne_nolw_edu B_education C_education A_EDT_elig_land A_EDT_no_elig_land nobt_ne_nolw_land B_land C_land A_EDT_elig_num A_EDT_no_elig_num  nobt_ne_nolw_num B_numeracy   C_numeracy A_EDT_elig_risk A_EDT_no_elig_risk nobt_ne_nolw_risk B_risk C_risk education  land num_memory_f8 risk_aversion_gen female bl_bus_owner fu_dummy*"
local yvars " bus_literacy_aggregate2_fu co_outcomes_aggregate_fu" 
local j =1
foreach y in `yvars' {
	reg `y' `xvars' if ( fu_dummy7==0 ), cl(co_code1)
	estimates store `y'
	
	test A_EDT_elig =B_LL
	estadd scalar p_diff1 = r(p)
	test A_EDT_elig =C_EDT_LL
	estadd scalar p_diff2 = r(p)
	test C_EDT_LL =B_LL
	estadd scalar p_diff3 = r(p)
	test A_EDT_no_elig =nobt_ne_nolw
	estadd scalar p_diff4 = r(p)
	test A_EDT_elig + A_EDT_elig_fem=0
	estadd scalar p_diff5 = r(p)
	test A_EDT_no_elig + A_EDT_no_elig_fem=0
	estadd scalar p_diff6 = r(p)
	test B_LL +B_female =0
	estadd scalar p_diff7 = r(p)
	test C_EDT_LL +C_female =0
	estadd scalar p_diff8 = r(p)
	test nobt_ne_nolw + nobt_ne_nolw_fem=0
	estadd scalar p_diff9= r(p)
	
	sum `y' if (fu_dummy7==0 & EDT_treat==0 & L_ttreat ==0 & d_lleligible==1)
	estadd scalar mean_y=r(mean)
	local j = `j'+1
}

estout * using "$out/OA-TableA8-PanelB-Pt2.xls", cells("b(star fmt(3))" se(par(`"="("' `")""'))) starlevels(* 0.10 ** 0.05 *** 0.01) ///
	stats(mean_y N r2 p_diff1 p_diff2 p_diff3 p_diff4 p_diff5 p_diff6 p_diff7 p_diff8 p_diff9, fmt(2 0 2 2 2 2 2 2 2 ) ///
	labels("mean dependent variable" "N.obs" "R-Sq" "p1" "p2" "p3" "p4" "p5" "p6" "p7" "p8" "p9")) replace
estimates clear

